home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_6708.txt < prev    next >
Encoding:
Text File  |  1990-08-07  |  6.4 KB  |  338 lines
  1. -- card: 6708 from stack: in.0-2
  2. -- bmap block id: 30833
  3. -- flags: 0000
  4. -- background id: 10385
  5. -- name: student.3
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   if icon of btn "switch" is 282 then click at loc of btn "switch"
  9. end closeCard
  10.  
  11. on calculate
  12.   get char 1 of card field "EMF"
  13.   if it="+" then
  14.     delete char 1 of card field "EMF"
  15.   end if
  16.   put card field "EMF" into E
  17.  
  18.   get char 1 of card field "R1"
  19.   if it="+" then
  20.     delete char 1 of card field "R1"
  21.   end if
  22.   put card field "R1" into R1
  23.   put abs(R1) into R1
  24.   put R1 into card field "R1"
  25.  
  26.   get char 1 of card field "R2"
  27.   if it="+" then
  28.     delete char 1 of card field "R2"
  29.   end if
  30.   put card field "R2" into R2
  31.   put abs(R2) into R2
  32.   put R2 into card field "R2"
  33.  
  34.   if E=0 then
  35.     send zeroall
  36.     exit calculate
  37.   end if
  38.  
  39.   if R1=0 and R2=0 then
  40.     put "zap" into card field "A1"
  41.     put "zap" into card field "A2"
  42.     put "zap" into card field "A3"
  43.     put E into card field "V1"
  44.     exit calculate
  45.   end if
  46.  
  47.   if R1=0 then
  48.     put "zap" into card field "A1"
  49.     put "zap" into card field "A3"
  50.     put 0 into card field "A2"
  51.     put E into card field "V1"
  52.     exit calculate
  53.   end if
  54.  
  55.   if R2=0 then
  56.     put "zap" into card field "A2"
  57.     put "zap" into card field "A3"
  58.     put 0 into card field "A1"
  59.     put E into card field "V1"
  60.     exit calculate
  61.   end if
  62.  
  63.   put E/R1 into I1
  64.   put E/R2 into I2
  65.   put I1+I2 into I3
  66.   set numberFormat to "0.000"
  67.   put E*1 into card field "V1"
  68.   put I1 into card field "A1"
  69.   put I2 into card field "A2"
  70.   put I3 into card field "A3"
  71. end calculate
  72.  
  73. --on closeField
  74. --set icon of btn "switch" to "open circuit"
  75. --send zeroall
  76. --end closeField
  77.  
  78. on zeroall
  79.   put 0 into card field "V1"
  80.   put 0 into card field "A1"
  81.   put 0 into card field "A2"
  82.   put 0 into card field "A3"
  83. end zeroall
  84.  
  85.  
  86.  
  87. -- part 2 (button)
  88. -- low flags: 00
  89. -- high flags: 0000
  90. -- rect: left=128 top=199 right=233 bottom=167
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 28757 / 28757
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: switch
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   if icon of me is 28757 then
  102.     set icon of me to "close circuit"
  103.     calculate
  104.   else
  105.     set icon of me to "open circuit"
  106.     zeroall
  107.   end if
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 3 (field)
  113. -- low flags: 00
  114. -- high flags: 0000
  115. -- rect: left=89 top=140 right=153 bottom=125
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 65535
  119. -- font id: 3
  120. -- text size: 9
  121. -- style flags: 256
  122. -- line height: 12
  123. -- part name: EMF
  124. ----- HyperTalk script -----
  125. on closeField
  126.   if icon of cd btn "Switch" is not 28757 then calculate
  127. end closeField
  128.  
  129.  
  130.  
  131. -- part 4 (field)
  132. -- low flags: 00
  133. -- high flags: 0000
  134. -- rect: left=226 top=142 right=155 bottom=260
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 65535
  138. -- font id: 3
  139. -- text size: 9
  140. -- style flags: 256
  141. -- line height: 12
  142. -- part name: R1
  143. ----- HyperTalk script -----
  144. on closeField
  145.   if icon of cd btn "Switch" is not 28757 then calculate
  146. end closeField
  147.  
  148.  
  149.  
  150. -- part 5 (field)
  151. -- low flags: 00
  152. -- high flags: 0000
  153. -- rect: left=306 top=142 right=155 bottom=340
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 65535
  157. -- font id: 3
  158. -- text size: 9
  159. -- style flags: 256
  160. -- line height: 12
  161. -- part name: R2
  162. ----- HyperTalk script -----
  163. on closeField
  164.   if icon of cd btn "Switch" is not 28757 then calculate
  165. end closeField
  166.  
  167.  
  168.  
  169. -- part 6 (field)
  170. -- low flags: 01
  171. -- high flags: 0002
  172. -- rect: left=178 top=189 right=201 bottom=216
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 65535
  176. -- font id: 3
  177. -- text size: 8
  178. -- style flags: 0
  179. -- line height: 10
  180. -- part name: V1
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   if 3 = 4 then
  184.   end if
  185. end mouseUp
  186.  
  187.  
  188.  
  189.  
  190. -- part 7 (field)
  191. -- low flags: 01
  192. -- high flags: 0002
  193. -- rect: left=201 top=252 right=264 bottom=237
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 65535
  197. -- font id: 3
  198. -- text size: 8
  199. -- style flags: 0
  200. -- line height: 10
  201. -- part name: A3
  202. ----- HyperTalk script -----
  203. on mouseUp
  204.   if 3 = 4 then
  205.   end if
  206. end mouseUp
  207.  
  208.  
  209.  
  210.  
  211. -- part 8 (field)
  212. -- low flags: 01
  213. -- high flags: 0002
  214. -- rect: left=275 top=210 right=222 bottom=311
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 65535
  218. -- font id: 3
  219. -- text size: 8
  220. -- style flags: 0
  221. -- line height: 10
  222. -- part name: A1
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   if 3 = 4 then
  226.   end if
  227. end mouseUp
  228.  
  229.  
  230.  
  231.  
  232. -- part 9 (field)
  233. -- low flags: 01
  234. -- high flags: 0002
  235. -- rect: left=354 top=211 right=223 bottom=390
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 65535
  239. -- font id: 3
  240. -- text size: 8
  241. -- style flags: 0
  242. -- line height: 10
  243. -- part name: A2
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   if 3 = 4 then
  247.   end if
  248. end mouseUp
  249.  
  250.  
  251.  
  252.  
  253. -- part 11 (button)
  254. -- low flags: 00
  255. -- high flags: 2000
  256. -- rect: left=225 top=283 right=297 bottom=243
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 15420 / 15420
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: 
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   lock screen
  268.   go prev
  269.   unlock screen with wipe right
  270. end mouseUp
  271.  
  272.  
  273.  
  274. -- part 12 (button)
  275. -- low flags: 00
  276. -- high flags: 2000
  277. -- rect: left=257 top=283 right=297 bottom=275
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 16560 / 16560
  280. -- text alignment: 1
  281. -- font id: 0
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: 
  286. ----- HyperTalk script -----
  287. on mouseUp
  288.   lock screen
  289.   go next
  290.   unlock screen with wipe left
  291. end mouseUp
  292.  
  293.  
  294. -- part 13 (field)
  295. -- low flags: 01
  296. -- high flags: 0000
  297. -- rect: left=242 top=82 right=103 bottom=369
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 0 / 0
  300. -- text alignment: 65535
  301. -- font id: 174
  302. -- text size: 14
  303. -- style flags: 2304
  304. -- line height: 18
  305. -- part name: 
  306.  
  307.  
  308. -- part contents for card part 3
  309. ----- text -----
  310. 20
  311.  
  312. -- part contents for card part 6
  313. ----- text -----
  314. 0
  315.  
  316. -- part contents for card part 8
  317. ----- text -----
  318. 0
  319.  
  320. -- part contents for card part 9
  321. ----- text -----
  322. 0
  323.  
  324. -- part contents for card part 7
  325. ----- text -----
  326. 0
  327.  
  328. -- part contents for card part 4
  329. ----- text -----
  330. 50
  331.  
  332. -- part contents for card part 5
  333. ----- text -----
  334. 50
  335.  
  336. -- part contents for card part 13
  337. ----- text -----
  338. PARALLEL